home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Add-Ons / MPW / MPW dmake 4.0 / function.c < prev    next >
Text File  |  1995-06-02  |  10KB  |  395 lines

  1. /* RCS      -- $Header: /u5/dvadura/src/public/dmake/src/RCS/function.c,v 1.1 1994/10/06 17:41:24 dvadura Exp $
  2. -- SYNOPSIS -- GNU style functions for dmake.
  3. -- 
  4. -- DESCRIPTION
  5. --     All GNU stule functions understood by dmake are implemented in this
  6. --    file.  Currently the only such function is $(mktmp ...) which is
  7. --    not part of GNU-make is an extension provided by dmake.
  8. --
  9. -- AUTHOR
  10. --      Dennis Vadura, dvadura@watdragon.uwaterloo.ca
  11. --      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
  12. --
  13. -- COPYRIGHT
  14. --      Copyright (c) 1992,1994 by Dennis Vadura.  All rights reserved.
  15. -- 
  16. --      This program is free software; you can redistribute it and/or
  17. --      modify it under the terms of the GNU General Public License
  18. --      (version 1), as published by the Free Software Foundation, and
  19. --      found in the file 'LICENSE' included with this distribution.
  20. -- 
  21. --      This program is distributed in the hope that it will be useful,
  22. --      but WITHOUT ANY WARRANTY; without even the implied warrant of
  23. --      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24. --      GNU General Public License for more details.
  25. -- 
  26. --      You should have received a copy of the GNU General Public License
  27. --      along with this program;  if not, write to the Free Software
  28. --      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29. --
  30. -- LOG
  31. --     $Log: function.c,v $
  32.  * Revision 1.1  1994/10/06  17:41:24  dvadura
  33.  * dmake Release Version 4.0, Initial revision
  34.  *
  35. */
  36.  
  37. #include "extern.h"
  38.  
  39. static char *_exec_mktmp  ANSI((char *, char *, char *));
  40. static char *_exec_subst  ANSI((char *, char *, char *));
  41. static char *_exec_iseq   ANSI((char *, char *, char *, int));
  42. static char *_exec_sort   ANSI((char *));
  43. static char *_exec_shell  ANSI((char *, char *));
  44. static char *_exec_assign ANSI((char *));
  45. static int   _mystrcmp    ANSI((CONST PVOID, CONST PVOID));
  46.  
  47.  
  48. PUBLIC char *
  49. Exec_function(buf)/*
  50. ====================
  51.    Execute the function given by the value of args.
  52.  
  53.    So far mktmp is the only valid function, anything else elicits and error
  54.    message.  It is my hope to support the GNU style functions in this portion
  55.    of the code at some time in the future. */
  56. char *buf;
  57. {
  58.    char *fname;
  59.    char *args;
  60.    char *mod1;
  61.    char *mod2 = NIL(char);
  62.    char *res  = NIL(char);
  63.  
  64.    /* This must succeed since the presence of ' ', \t or \n is what
  65.     * determines if this functions is called in the first place. */
  66.    FREE(ScanToken(buf, &args, FALSE));
  67.    fname = DmSubStr(buf, args);
  68.  
  69.    if( (mod1 = strchr(fname,',')) != NIL(char) ){
  70.       *mod1 = '\0';
  71.       mod1++;
  72.  
  73.       if( (mod2 = strchr(mod1,',')) != NIL(char) ){
  74.      *mod2 = '\0';
  75.      mod2++;
  76.       }
  77.    }
  78.  
  79.    switch( *fname ) {
  80.       case 'a':
  81.      if(strncmp(fname,"assign",6) == 0)
  82.         res = _exec_assign(args);
  83.      break;
  84.  
  85.       case 'e':
  86.      if(strncmp(fname,"eq",2) == 0) res = _exec_iseq(mod1,mod2,args,TRUE);
  87.      break;
  88.  
  89.       case 'm':
  90.      if( strncmp(fname,"mktmp", 5) == 0 ) res = _exec_mktmp(mod1,mod2,args);
  91.      break;
  92.  
  93.       case 'n':
  94.      if( strncmp(fname,"null", 4) == 0 )
  95.         res = _exec_iseq(mod1,NIL(char),args,TRUE);
  96.      else if (strncmp(fname,"nil",3) == 0 )
  97.         res = DmStrDup("");
  98.      break;
  99.  
  100.       case '!':
  101.      if(strncmp(fname,"!null",5) == 0)
  102.         res = _exec_iseq(mod1,NIL(char),args,FALSE);
  103.      if(strncmp(fname,"!eq",3) == 0) res = _exec_iseq(mod1,mod2,args,FALSE);
  104.      break;
  105.  
  106.       case 's':
  107.      if(strncmp(fname,"sort",4) == 0)
  108.         res = _exec_sort(args);
  109.      else if(strncmp(fname,"shell",5)==0)
  110.         res = _exec_shell(args,mod1);
  111.      else if(strncmp(fname,"strip",5)==0)
  112.         res = Tokenize(Expand(args)," ",'t',TRUE);
  113.      else if(strncmp(fname,"subst",5)==0)
  114.         res = _exec_subst(mod1,mod2,args);
  115.      break;
  116.  
  117.       default:
  118.      Warning( "Function '%s' not implemented at this time", fname );
  119.    }
  120.  
  121.    if( res == NIL(char) ) res = DmStrDup("");
  122.  
  123.    FREE(fname);
  124.    return(res);
  125. }
  126.  
  127.  
  128. static char *
  129. _exec_assign( macrostring )
  130. char *macrostring;
  131. {
  132.    if ( !Parse_macro(macrostring, M_MULTI|M_FORCE) ) {
  133.       Error( "Dynamic macro assignment failed, while making [%s]\n",
  134.      Current_target ? Current_target->CE_NAME : "NIL");
  135.       return(DmStrDup(""));
  136.    }
  137.  
  138.    return(DmStrDup(LastMacName));
  139. }
  140.  
  141.  
  142. static char *
  143. _exec_mktmp( file, text, data )
  144. char *file;
  145. char *text;
  146. char *data;
  147. {
  148.    register char *p;
  149.    char *tmpname;
  150.    char *name;
  151.    FILE *tmpfile = NIL(FILE);
  152.  
  153.    /* This is only a test of the recipe line so prevent the tempfile side
  154.     * effects. */
  155.    if( Suppress_temp_file ) return(NIL(char));
  156.  
  157.    name = Current_target ? Current_target->CE_NAME:"makefile text";
  158.  
  159.    if( file && *file ) {
  160.       char *newtmp;
  161.  
  162.       /* This call to Get_temp sets TMPFILE for subsequent expansion of file.
  163.        * DO NOT DELETE IT! */
  164.       Get_temp( &newtmp, "", FALSE ); FREE(newtmp);
  165.       tmpname = Expand(file);
  166.  
  167.       if( *tmpname ) {
  168.      if( (tmpfile = fopen(tmpname, "w")) == NIL(FILE) )
  169.         Open_temp_error( tmpname, name );
  170.  
  171.      Def_macro("TMPFILE", tmpname, M_EXPANDED|M_MULTI);
  172.      Link_temp( Current_target, tmpfile, tmpname );
  173.       }
  174.       else
  175.      FREE(tmpname);
  176.    }
  177.  
  178.    if( !tmpfile )
  179.       tmpfile = Start_temp( "", Current_target, &tmpname );
  180.  
  181.    if( !text || !*text ) text = tmpname;
  182.    data = Expand(DmStrSpn(data, " \t\n"));
  183.  
  184.    for(p=strchr(data,'\n'); p; p=strchr(p,'\n')) {
  185.       char *q = DmStrSpn(++p," \t");
  186.       strcpy(p,q);
  187.    }
  188.  
  189.    Append_line( data, FALSE, tmpfile, name, FALSE, TRUE );
  190.    Close_temp( Current_target, tmpfile );
  191.    FREE(data);
  192.  
  193.    return( Expand(text) );
  194. }
  195.  
  196.  
  197. static char *
  198. _exec_iseq( lhs, rhs, data, eq )
  199. char *lhs;
  200. char *rhs;
  201. char *data;
  202. int  eq;
  203. {
  204.    char *l = Expand(lhs);
  205.    char *r = Expand(rhs);
  206.    char *i = DmStrSpn(data, " \t\n");
  207.    char *e = strchr(i, ' ');
  208.    char *res = NIL(char);
  209.    int  val = strcmp(l,r);
  210.  
  211.    if( (!val && eq) || (val && !eq) ) {
  212.       if( e != NIL(char) ) *e = '\0';
  213.       res = Expand(i);
  214.    }
  215.    else if( e != NIL(char) ) {
  216.       e = DmStrSpn(e," \t\n");
  217.       if( *e ) res = Expand(e);
  218.    }
  219.  
  220.    FREE(l);
  221.    FREE(r);
  222.    return(res);
  223. }
  224.  
  225.  
  226. static char *
  227. _exec_sort( args )
  228. char *args;
  229. {
  230.    char *res  = NIL(char);
  231.    char *data = Expand(args);
  232.    char **tokens = NIL(char *);
  233.    char *p;
  234.    char *white = " \t\n";
  235.    int  j;
  236.    int  i = 0;
  237.  
  238.    for(i=0,p=DmStrSpn(data,white);*p;p=DmStrSpn(DmStrPbrk(p,white),white),i++); 
  239.  
  240.    if( i != 0 ) {
  241.       TALLOC(tokens, i, char *);
  242.  
  243.       for( i=0,p=DmStrSpn(data,white); *p; p=DmStrSpn(p,white),i++){
  244.      tokens[i] = p;
  245.      p = DmStrPbrk(p,white);
  246.      if( *p ) *p++ = '\0';
  247.       }
  248.  
  249.       qsort( tokens, i, sizeof(char *), _mystrcmp );
  250.  
  251.       for( j=0; j<i; j++ ) res = DmStrApp(res, tokens[j]);
  252.       FREE(data);
  253.       FREE(tokens);
  254.    }
  255.  
  256.    return(res);
  257. }
  258.  
  259.  
  260. static int
  261. _mystrcmp( p, q )
  262. CONST PVOID p;
  263. CONST PVOID q;
  264. {
  265.    return(strcmp(*((CONST char **)p),*((CONST char **)q)));
  266. }
  267.  
  268.  
  269. static char *
  270. _exec_subst( pat, subst, data )
  271. char *pat;
  272. char *subst;
  273. char *data;
  274. {
  275.    char *res;
  276.  
  277.    pat = Expand(pat);
  278.    subst = Expand(subst);
  279.    res = Apply_edit( Expand(data), pat, subst, TRUE, FALSE );
  280.    FREE(pat);
  281.    FREE(subst);
  282.  
  283.    return(res);
  284. }
  285.  
  286.  
  287. static char *
  288. _exec_shell( data, mod1 )
  289. char *data;
  290. char *mod1;
  291. {
  292.    extern char *tempnam();
  293.    static int  nestlevel = 0;
  294.    static int  org_out;
  295.    static int  bsize;
  296.    static char *buffer;
  297.    static char *tmpnm;
  298.    static FILE *tmp;
  299.  
  300.    int wait     = Wait_for_completion;
  301.    uint16 vflag = Verbose;
  302.    int tflag    = Trace;
  303.    char *res    = NIL(char);
  304.    CELL cell;
  305.    STRING rcp;
  306.    HASH   cname;
  307.  
  308.    if( Suppress_temp_file ) return(NIL(char));
  309.  
  310.    /* Set the temp CELL used for building prerequisite candidates to
  311.     * all zero so that we don't have to keep initializing all the
  312.     * fields. */
  313.    {
  314.       register char *s = (char *) &cell;
  315.       register int   n = sizeof(CELL);
  316.       while( n ) { *s++ = '\0'; n--; }
  317.    }
  318.    rcp.st_string  = DmStrSpn(data, " \t+-%@");
  319.    rcp.st_attr    = Rcp_attribute( data );
  320.    rcp.st_next    = NIL(STRING);
  321.    cname.ht_name  = "Shell escape";
  322.    cell.ce_name   = &cname;
  323.    cell.ce_all.cl_prq = &cell;
  324.    cell.ce_all.cl_next = NIL(LINK);
  325.    cell.ce_all.cl_flag = 0;
  326.    cell.ce_fname  = cname.ht_name;
  327.    cell.ce_recipe = &rcp;
  328.    cell.ce_flag   = F_TARGET|F_RULES;
  329.    cell.ce_attr   = A_PHONY|A_SILENT;
  330.  
  331.    if( nestlevel == 0 ) {
  332.       tmpnm   = tempnam(NIL(char),"mk");
  333.       org_out = dup(1);
  334.  
  335.       if( (tmp = fopen(tmpnm, "w+")) == NIL(FILE) )
  336.      Open_temp_error( tmpnm, cname.ht_name );
  337.  
  338.       close(1);
  339.       dup( fileno(tmp) );
  340.  
  341.       bsize  = (Buffer_size < BUFSIZ)?BUFSIZ:Buffer_size;
  342.       buffer = MALLOC(bsize,char);
  343.    }
  344.  
  345.    Wait_for_completion = TRUE;
  346.    Verbose &= V_LEAVE_TMP;
  347.    Trace   = FALSE;
  348.    nestlevel++;
  349.    Exec_commands( &cell );
  350.    Unlink_temp_files( &cell );
  351.    nestlevel--;
  352.    Trace   = tflag;
  353.    Verbose = vflag;
  354.    Wait_for_completion = wait;
  355.  
  356.    /* Now we have to read the temporary file, get the tokens and return them
  357.     * as a string. */
  358.    rewind(tmp);
  359.    while( fgets(buffer, bsize, tmp) ) {
  360.       char *p = strchr(buffer, '\n');
  361.  
  362.       if( p == NIL(char) )
  363.      res = DmStrJoin(res,buffer,-1,TRUE);
  364.       else {
  365.      *p = '\0';
  366.          res = DmStrApp(res,buffer);
  367.       }
  368.    }
  369.  
  370.    fclose(tmp);
  371.    if( nestlevel == 0 ) {
  372.       Remove_file(tmpnm);
  373.       close(1);
  374.       dup(org_out);
  375.       close(org_out);
  376.       FREE(tmpnm);
  377.       FREE(buffer);
  378.    }
  379.    else {
  380.       if( (tmp = fopen(tmpnm, "w+")) == NIL(FILE) )
  381.      Open_temp_error( tmpnm, cname.ht_name );
  382.  
  383.       close(1);
  384.       dup( fileno(tmp) );
  385.    }
  386.  
  387.    if ( mod1 ) {
  388.       mod1 = Expand(res);
  389.       FREE(res);
  390.       res = mod1;
  391.    }
  392.  
  393.    return(res);
  394. }
  395.